home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 501_600 / DISK0562 / DISK0562.ZIP / SOFT4HAM.ARC / QTHANY.2 < prev    next >
Text File  |  1985-09-28  |  768b  |  24 lines
  1. 10 REM QTHANY
  2. 20 REM By Joe Kasser G3ZCZ June 1979
  3. 30 INPUT "What is your call sign ",C$
  4. 40 INPUT "What is your latitude ",A
  5. 50 IF A < 0 OR A > 90 THEN 40
  6. 60 INPUT "Are you north of the equator ",L$
  7. 70 IF L$ = "" THEN 60
  8. 80 IF L$(1,1) = "N" THEN A = - A
  9. 90 INPUT "What is your EAST longitude ",L1
  10. 100 IF L < 0 OR L > 360 THEN 90
  11. 110 PRINT#Z1 "DIRECTION DISTANCE TABLE for ",C$,"  ",
  12. 120 PRINT#Z1 "LOCATED AT ",A," ",L1
  13. 130 PRINT#Z1
  14. 140 OPEN#1,"QTHDATA"
  15. 150 READ#1,C$,B,L2
  16. 160 IFC$(1,1)= "*" THEN 210
  17. 170 GOSUB 5000
  18. 180 C$=C$+"          "
  19. 190 PRINT#Z1  C$,%10I,D1,%10I,D2,%10I,R2
  20. 200 GOTO 150
  21. 210 CLOSE #1
  22. 220 STOP
  23. 5000 REM SUBROUTINE TO PERFORM CALCULATIONS
  24.